home *** CD-ROM | disk | FTP | other *** search
/ Technotools / Technotools (Chestnut CD-ROM)(1993).ISO / lang_oth / fifth21 / sqrt.fiv < prev    next >
Text File  |  1986-03-29  |  136b  |  14 lines
  1. CREATE SQRT
  2. EDIT
  3. : sqrt
  4.  
  5.   dup 2. f/
  6.   13 0 do
  7.     stack ab|abb
  8.     f* f+
  9.     swap 2. f* f/
  10.   loop
  11.   swap drop
  12. ;
  13. ~UP
  14. ABORT